(define counter 0)

(define (bump-counter)
    (set! counter (+ counter 1))
    counter)

(bump-counter)
(bump-counter)
(bump-counter)